inherit CometAppsGate_PM_P_TK PM_TK

#___________________________________________________________________________________________________________________________________________
#___________________________________________________________________________________________________________________________________________
#___________________________________________________________________________________________________________________________________________
method CometAppsGate_PM_P_TK constructor {name descr args} {
 this inherited $name $descr
   this set_GDD_id CometAppsGate_CUI_default_TK
 eval "$objName configure $args"
 return $objName
}

#___________________________________________________________________________________________________________________________________________
method CometAppsGate_PM_P_TK dispose {} {this inherited}

#___________________________________________________________________________________________________________________________________________
method CometAppsGate_PM_P_TK get_or_create_prims {root} {
	set this(TK_root) "$root.tk_${objName}"
	if {![winfo exists $this(TK_root)]} {
		 frame $this(TK_root)
		}
	this set_root_for_daughters $this(TK_root)

	return [this set_prim_handle $this(TK_root)]
}

#___________________________________________________________________________________________________________________________________________
#___________________________________________________________________________________________________________________________________________
#___________________________________________________________________________________________________________________________________________
Methodes_set_LC CometAppsGate_PM_P_TK [P_L_methodes_set_CometAppsGate] {} {}
Methodes_get_LC CometAppsGate_PM_P_TK [P_L_methodes_get_CometAppsGate] {$this(FC)}

#___________________________________________________________________________________________________________________________________________
Generate_PM_setters CometAppsGate_PM_P_TK [P_L_methodes_set_AppsGate_COMET_RE]

#___________________________________________________________________________________________________________________________________________
# Redefine semantic methods ________________________________________________________________________________________________________________
#___________________________________________________________________________________________________________________________________________
